@input = (11,23,43,53,456);
@output = grep odd_func($_),@input;
#open(BUFF,file);
#@output = map odd_func($_),<BUFF>;
print "Here is the output @output\n";

sub odd_func{
	my $input = shift;
	my @digits = split //,$input;
	return \@digits;
	my $sum;
	$sum += $_ for @digits;
	return $sum%2;

}
